→ This file can be used to convert from older versions of (R)UCI LISP
→ to the latest RUCI LISP system.  To use it, start LISP up, do a
→ (DSKIN LSP: (CONVRT.LSP)), and then DSKIN your files and do one or
→ more DSKOUTs as normal to recreate your LSP files.  The new files
→ will be converted automatically for you.

(DEFP * NILL FSUBR)

(DEFP ** NILL FSUBR)

(DEFP *** NILL FSUBR)

(DEFPROP * 40. COMMENT)

(DEFPROP ** T COMMENT)

(DEFPROP *** T COMMENT)

(DEFLIST (* ** *** AND# OR# MEMBER# CURRCOL *INSERT *MERGE *SORT
	  LEXORDERCAR PP* PPL*)
	 PP-CONVRT
	 PRINTMACRO)

(DEFPROP PP-CONVRT
 (LAMBDA (L)
  (SPRINT (CONS (CDR (ASSOC (CAR L) CNVFNS)) (CDR L)) (CHRPOS)))
 EXPR)

(DEFV CNVFNS ((* . ;) (** . ;;) (*** . ;;) (AND# . AND) (OR# . OR)
	      (MEMBER# . MEMBER) (CURRCOL . CHRPOS) (*INSERT . INSERT)
	      (*MERGE . MERGE) (*SORT . SORT) (LEXORDERCAR . LEXORDER)
	      (PP* . PP;) (PPL* . PPL;)))